home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 80
/
080.d81
/
quest boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
771b
|
22 lines
10 print"[147]":gosub70
20 poke 53281,0:poke 53280,0
30 print"[144]":print""
40 print "load";chr$(34);f$;chr$(34)",8"
50 print"run"
60 poke631,13:poke632,13:poke198,2:end
70 poke53280,0:poke53281,0:iffthenreturn
80 poke214,10:print"[145]";
90 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
100 fori=217to242:pokei,peek(i)or128:next
110 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 fori=1to7:printtab(4)"[155] [151][223]":next
130 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][223]"
140 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
150 poke214,14:print"[145][155]";
160 fori=1to5:reada$:gosub170:next:goto180
170 printspc(20-len(a$)/2)""a$:a$="":return
180 f$="wquest":poke214,24:print"[145]"spc(13)"[204] [207] [193] [196] [201] [206] [199]":return
190 data"[215][160][207][160][210] [196][160][209] [213][160][197][160][211][160][212][160] [160]v[160]1","by [202]on [205]attson"
200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #80","[211]ubscriptions 1-800-831-2694"
210 data"[195]opyright ([195]) 1990 [211]oftdisk"